Cream of the Crop 22/Cream of the Crop 22.iso/program/tdmbks.zip/DELBOOKS.EXE/RCDATA/TBOOKFORM/TBOOKFORM.txt

Text File | 1996-05-30 | 11KB | 484 lines

object BookForm: TBookForm
  Left = 196
  Top = 210
  ActiveControl = Panel1
  BorderStyle = bsDialog
  Caption = 'The Delphi Magazine Review Database of Delphi Books '
  ClientHeight = 453
  ClientWidth = 632
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 632
    Height = 41
    Align = alTop
    Alignment = taRightJustify
    BevelOuter = bvLowered
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 0
    object DBNavigator: TDBNavigator
      Left = 10
      Top = 8
      Width = 201
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbPost, nbCancel, nbRefresh]
      Ctl3D = False
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = DBNavigatorClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 632
    Height = 412
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 1
    object ScrollBox: TScrollBox
      Left = 6
      Top = 6
      Width = 620
      Height = 400
      HorzScrollBar.Margin = 6
      HorzScrollBar.Range = 319
      VertScrollBar.Margin = 6
      VertScrollBar.Range = 198
      Align = alClient
      AutoScroll = False
      BorderStyle = bsNone
      TabOrder = 0
      object Label1: TLabel
        Left = 6
        Top = 6
        Width = 23
        Height = 13
        Caption = 'Title:'
        FocusControl = EditTitle
      end
      object Label2: TLabel
        Left = 6
        Top = 44
        Width = 34
        Height = 13
        Caption = 'Author:'
        FocusControl = EditAuthor
      end
      object Label3: TLabel
        Left = 6
        Top = 82
        Width = 28
        Height = 13
        Caption = 'ISBN:'
        FocusControl = EditISBN
      end
      object Label4: TLabel
        Left = 140
        Top = 82
        Width = 46
        Height = 13
        Caption = 'Publisher:'
        FocusControl = EditPublisher
      end
      object Label5: TLabel
        Left = 318
        Top = 82
        Width = 57
        Height = 13
        Caption = 'Price (US$):'
        FocusControl = EditPrice
      end
      object Label6: TLabel
        Left = 6
        Top = 120
        Width = 65
        Height = 13
        Caption = 'Source Code:'
        FocusControl = EditCode
      end
      object Label7: TLabel
        Left = 391
        Top = 4
        Width = 31
        Height = 13
        Caption = 'Cover:'
      end
      object Label8: TLabel
        Left = 140
        Top = 120
        Width = 29
        Height = 13
        Caption = 'Level:'
      end
      object Label9: TLabel
        Left = 4
        Top = 174
        Width = 130
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Technical Contents Quality:'
      end
      object Label10: TLabel
        Left = 4
        Top = 202
        Width = 130
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Quality of Writing:'
      end
      object Label11: TLabel
        Left = 4
        Top = 230
        Width = 130
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Value for Money:'
      end
      object Label12: TLabel
        Left = 4
        Top = 258
        Width = 130
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Overall Assessment:'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Image1: TImage
        Left = 323
        Top = 124
        Width = 60
        Height = 40
        Picture.Data = {<image000.bmp>}
        PopupMenu = PopupMenu1
        OnDblClick = Image1DblClick
      end
      object EditTitle: TDBEdit
        Left = 6
        Top = 21
        Width = 375
        Height = 20
        DataField = 'Title'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 0
        ParentFont = False
        TabOrder = 0
      end
      object EditAuthor: TDBEdit
        Left = 6
        Top = 59
        Width = 375
        Height = 20
        DataField = 'Author'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 0
        ParentFont = False
        TabOrder = 1
      end
      object EditISBN: TDBEdit
        Left = 6
        Top = 97
        Width = 128
        Height = 20
        DataField = 'ISBN'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 0
        ParentFont = False
        TabOrder = 2
      end
      object EditPublisher: TDBEdit
        Left = 140
        Top = 97
        Width = 174
        Height = 20
        DataField = 'Publisher'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 0
        ParentFont = False
        TabOrder = 3
      end
      object EditPrice: TDBEdit
        Left = 323
        Top = 97
        Width = 60
        Height = 20
        DataField = 'Price'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 0
        ParentFont = False
        TabOrder = 4
      end
      object EditCode: TDBEdit
        Left = 6
        Top = 135
        Width = 128
        Height = 20
        DataField = 'Code'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 0
        ParentFont = False
        TabOrder = 5
        OnKeyPress = EditCodeKeyPress
      end
      object DBImage1: TDBImage
        Left = 392
        Top = 20
        Width = 229
        Height = 256
        BorderStyle = bsNone
        Center = False
        Ctl3D = False
        DataField = 'Cover'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 6
        OnDblClick = DBImage1DblClick
      end
      object DBMemo1: TDBMemo
        Left = 6
        Top = 283
        Width = 607
        Height = 113
        Color = clBtnFace
        DataField = 'Comments'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 7
      end
      object LevelComboBox: TComboBox
        Left = 140
        Top = 135
        Width = 174
        Height = 20
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ItemHeight = 13
        Items.Strings = (
          'Beginner'
          'Intermediate'
          'Advanced')
        ParentFont = False
        TabOrder = 8
        OnClick = DataOnScreenChanged
      end
      object RadioGroup1: TRadioGroup
        Left = 139
        Top = 160
        Width = 245
        Height = 32
        Columns = 5
        Items.Strings = (
          'Bad'
          'Poor'
          'Fair'
          'Good'
          'Best')
        TabOrder = 9
        OnClick = DataOnScreenChanged
      end
      object RadioGroup2: TRadioGroup
        Left = 139
        Top = 188
        Width = 245
        Height = 32
        Columns = 5
        Items.Strings = (
          'Bad'
          'Poor'
          'Fair'
          'Good'
          'Best')
        TabOrder = 10
        OnClick = DataOnScreenChanged
      end
      object RadioGroup3: TRadioGroup
        Left = 139
        Top = 216
        Width = 245
        Height = 32
        Columns = 5
        Items.Strings = (
          'Bad'
          'Poor'
          'Fair'
          'Good'
          'Best')
        TabOrder = 11
        OnClick = DataOnScreenChanged
      end
      object RadioGroup4: TRadioGroup
        Left = 139
        Top = 244
        Width = 245
        Height = 32
        Columns = 5
        Items.Strings = (
          'Bad'
          'Poor'
          'Fair'
          'Good'
          'Best')
        TabOrder = 12
        OnClick = DataOnScreenChanged
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 599
    Top = 5
  end
  object Table1: TTable
    AfterOpen = Table1After
    AfterCancel = Table1After
    AfterDelete = Table1After
    DatabaseName = 'd:\usr\bob\delbooks'
    Exclusive = True
    TableName = 'delbooks.db'
    Left = 572
    Top = 5
    object Table1Level: TSmallintField
      FieldName = 'Level'
    end
    object Table1TechnicalContentsQuality: TSmallintField
      FieldName = 'TechnicalContentsQuality'
    end
    object Table1QualityOfWriting: TSmallintField
      FieldName = 'QualityOfWriting'
    end
    object Table1ValueForMoney: TSmallintField
      FieldName = 'ValueForMoney'
    end
    object Table1OverallAssessment: TSmallintField
      FieldName = 'OverallAssessment'
    end
    object Table1ISBN: TStringField
      FieldName = 'ISBN'
      Required = True
      Size = 16
    end
    object Table1Title: TStringField
      FieldName = 'Title'
      Required = True
      Size = 64
    end
    object Table1Author: TStringField
      FieldName = 'Author'
      Size = 64
    end
    object Table1Publisher: TStringField
      FieldName = 'Publisher'
      Size = 32
    end
    object Table1Price: TCurrencyField
      FieldName = 'Price'
      Currency = True
    end
    object Table1Code: TStringField
      FieldName = 'Code'
      Size = 7
    end
    object Table1Comments: TMemoField
      FieldName = 'Comments'
      Size = 10
    end
    object Table1Cover: TGraphicField
      FieldName = 'Cover'
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'BMP'
    Filter = 'bitmap files|*.bmp'
    Title = 'Book Cover Bitmap'
    Left = 490
    Top = 155
  end
  object PopupMenu1: TPopupMenu
    Left = 344
    Top = 176
    object About1: TMenuItem
      Caption = '&About...'
      OnClick = Image1DblClick
    end
    object TheDelphiMagazine1: TMenuItem
      Caption = 'The &Delphi Magazine...'
      OnClick = Image1DblClick
    end
    object DelBooksontheWWW1: TMenuItem
      Caption = 'DelBooks on the &WWW...'
      OnClick = DelBooksontheWWW1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object DrBob1: TMenuItem
      Caption = '&Bob Swart (aka Dr.Bob)...'
      OnClick = DrBob1Click
    end
  end
end